home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00002Series_188.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  620 b   |  23 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put EMPTY into field "bearingoption"
  4.   if the hilite of cast "b_wb29" = 1 then
  5.     put "WB29; " into field "bearingoption"
  6.   end if
  7.   if the hilite of cast "b_wb19" then
  8.     put "WB19; " into field "bearingoption"
  9.   end if
  10.   if the hilite of cast "b_wsr1" = 1 then
  11.     put "WSR1; " after field "bearingoption"
  12.   end if
  13.   if the hilite of cast "b_wsr2" = 1 then
  14.     put "WSR2; " after field "bearingoption"
  15.   end if
  16.   if the hilite of cast "b_wsr3" = 1 then
  17.     put "WSR3; " after field "bearingoption"
  18.   end if
  19.   puppetSound("mainsnd")
  20.   puppetTransition(47, 1, 8)
  21.   VBSEARCH()
  22. end
  23.